<%

Public function OpenConnection()

	Set OpenConnection = Server.CreateObject("ADODB.Connection")
	
	OpenConnection.Open sConnectionString
	
End function


%>